Excel 批量删除空行-Excel批量插入或删除空行

在Excel中， 右键-插入（删除），我们就能快速插入和删除行了。那么如何在批量插入和删除空行呢

下面我们用Excel VBA快速对几种插入删除空行方式处理一下

1、每隔n行插入空行

Sub insertBlankRow()

    Dim rowsn As Integer

    Dim n As Integer

    Dim k As Long

    n = 1 '如果想每隔3行插入1行，此处更改为n=3

    rowsn = Int(Range("B" & Cells.rows.Count).End(xlUp).Row / n)

    For I = 1 To rowsn

        rows(I * n + 1 + k).Insert

    k = k + 1

    Next I

End Sub

2、删除空行（全部单元格为空的空行）

Sub DeleteBlankRow()

    Dim firstRow As Long

    Dim LastRow As Long

    Dim i As Long

    firstRow = ActiveSheet.UsedRange.Row

    LastRow = firstRow + ActiveSheet.UsedRange.Rows.Count - 1

    For i = LastRow To firstRow Step -1

        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then

            Rows(i).Delete

        End If

    Next i

End Sub

3、删除空行（以某列为基准，某行在此列为空即删除）

Sub deleteBlankRowOfColumn()

    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

如下图，在DeleteBlankRow()过程中，必须是整行为空，该行才删除。而过程deleteBlankRowOfColumn()是以第一列为基础，该列中为空的单元格整行删除。（下图第7行在deleteBlankRowOfColumn()会被删，而DeleteBlankRow()过程不会）